


		

			**	**	**	**	**	**	**	**	**	**	**	**	**
			**	**	**	**	**	**	**	**	**	**	**	**	**
			**	**	**	**	**	**	**	**	**	**	**	**	**
	


*-------------------------------------------------------------------------------
* This file looks at trends in arrests
*-------------------------------------------------------------------------------

use "arrests.dta", clear

**month
gen month = mofd(date)

**types
gen local = 1 if arr == "CAP Local Incarceration" | arr == "CAP State Incarceration" 
gen g = 1 if arr == "287(g) Program"
gen noncust = 1 if arr == "Non-Custodial Arrest" | arr == "Located" | arr == "Probation and Parole"

**total types
tab arrest_m


**monthly types
foreach var of varlist local g noncust {
bysort month: egen monthly`var' = sum(`var')
}

*month tag
sort month
by month: gen monthtag = 1 if _n == 1

  
****
*Plot to Show Effect of PEP
****


twoway (line monthlylocal month if monthtag == 1 & month >= 648 & month < 696)  ///
(line monthlynoncust month if monthtag == 1 & month >= 648 & month < 696), ///
xlabel(648(12)696, noticks format(%tmCY)) ///
legend(order(1 "State/Local Custodial Arrests" 2 "Noncustodial Arrests")) ///
xti(Year) yti(Monthly Arrests) ///
xline(657, lpattern(dash)) xline(683, lpattern(dash)) ///
  text(8000 657 "Priority Enforcement", placement(v) orientation(vertical) size(small)) ///
  text(8000 683 "Trump Takes Office", placement(v) orientation(vertical) size(small)) 
graph export "figure1.pdf", replace



